home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Utilities / Converters / Convert_MacPaint / Source / shared.subproj / RCS / ProgressInd.psw,v < prev    next >
Text File  |  1995-06-12  |  1KB  |  86 lines
  1. head     1.3;
  2. branch   ;
  3. access   ;
  4. symbols  beta10:1.2;
  5. locks    death:1.3;
  6. comment  @@;
  7.  
  8.  
  9. 1.3
  10. date     93.04.04.23.44.58;  author death;  state Exp;
  11. branches ;
  12. next     1.2;
  13.  
  14. 1.2
  15. date     93.01.10.15.08.38;  author death;  state Exp;
  16. branches ;
  17. next     1.1;
  18.  
  19. 1.1
  20. date     92.07.26.14.01.47;  author death;  state Exp;
  21. branches ;
  22. next     ;
  23.  
  24.  
  25. desc
  26. @First revision of the ps code to draw an indicator circle...
  27. @
  28.  
  29.  
  30. 1.3
  31. log
  32. @Sun Apr  4 23:44:58 PDT 1993
  33. @
  34. text
  35. @
  36. /*
  37.     routine: DrawIndicator
  38.     description:    This Draws a NeXT-style percentage-done indicator
  39.     Draws: ??
  40.  
  41. */
  42. defineps DrawIndicator(double arcsize; float centerx, centery; double radius)
  43.     newpath
  44.         centerx centery moveto
  45.         centerx centery radius 90 arcsize sub  90  arc 
  46.     closepath
  47.     0.333 setgray    
  48.     gsave
  49.     fill
  50.     grestore
  51.     
  52.     0 setgray
  53.     stroke
  54.     
  55.     newpath
  56.         centerx centery radius 0 360  arc 
  57.     0 setgray
  58.     stroke
  59. endps
  60. @
  61.  
  62.  
  63. 1.2
  64. log
  65. @Sun Jan 10 15:08:38 PST 1993
  66. @
  67. text
  68. @@
  69.  
  70.  
  71. 1.1
  72. log
  73. @Initial revision
  74. @
  75. text
  76. @d5 2
  77. a10 6
  78.         centerx centery radius 90 360  arc 
  79.     closepath
  80.     0 setgray
  81.     stroke
  82.     newpath
  83.         centerx centery moveto
  84. d17 6
  85. @
  86.